RECEIVED 



subroutine foo (A,B,C,M,N) DL ' " 

double precision A(*), B(*), C(*), SUM1 Terhnotoqv Center 2100 
integer M, N, I, J aJ 
call samp_auxiliary_routine(M,N) 
sum1=0,dO 
dol = 1,M 
sum1 = sum1 + A(l) 
doJ = 1,l\l 

sum1 =sum1 + A((I-1)*M+J) + B((I-1)*M+J) 

enddo 

C(l) = sum1 
enddo 
return 

end ;> . 

FIG. 1 



samp_auxiliary_routine(A,B) 
int *A, *B; 
{ *A = ARRAY_SIZE; 
*B = ARRAY_SIZE; 

} 



FIG. 2 



supercompiler_timer() 
{ 

extern void (*supercompiler_routine)() 

/*Example usage actually calls the target subroutine 
twice, so time that:*/ 

(*supercompiler_routine)(A, B, C, &N, &M); 
(*supercompiler_routine)(A, B, C, &N, &M); 
} 

FIG. 3 



#define ARRAY_SIZE 1024 

int N=0 

intM=0 

double A[ARRAY_SIZE*ARRAY_SIZE]; 
double B[ARRAY_SIZE*ARRAY_SIZE]; 
double C[ARRAY_SIZE]; 

supercompiler_initialized() 

{ 

int i; 

/* Initialize the variables: */ 

for (i = 0; i <A R R AY_S I ZE * A R R AY_S I ZE ; i++) 

{ 

A[i] = (double) i; 
B[i] = (double) i; 

} 

for (i = 0; i<ARRAY_SIZE; i++ ) C[i] = (double) i; 

/*The target subroutine needs to call an auxiliary 
routine: */ 

supercompilier_binding("samp_auxiliary_routine_",& 
_auxiliary_routine_); 

/* Place the caches into a known state: clean */ 

flush_cache(); 

} 

FIG. 4 




source language routine read 



initial routine values read 
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optimizing change made to intermediate 
language routine representation 
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machine language representation 

of optimized intermediate 
language representation generated 
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